function Table
global sudu PN
figure(233);
plot([0,0],[0,10],'k-','linewidth',2);hold on
plot([0,10],[0,0],'k-','linewidth',2);hold on
for i=1:9
    if ~ismember(i,[0,3,6,9])
        plot([i,i],[0,10],'b-');hold on
        plot([0,10],[i,i],'b-');hold on
    else
        plot([i,i],[0,10],'k-','linewidth',2);hold on
        plot([0,10],[i,i],'k-','linewidth',2);hold on
    end
    for j=1:9
        if PN(i,j)
            text(j-.5,9.5-i,num2str(sudu(i,j)))
        end
    end
end
axis([0,9,0,9]);axis('square');axis off
